home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
zbpc_460.zip
/
DUALDEMO.EXE
/
DUODEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-03-24
|
2KB
|
48 lines
DEFINT A-Z
MODE 2 'Reset to text in case
'screen in graphics mode
IF CARDTYPE <2 COLOR ,31 'Set color if detected
IF CARDTYPE = 4 COLOR ,31
IF CARDTYPE = 6 COLOR ,31
CLS
PRINT CHR$(201) + STRING$(78,205) + CHR$(187);
FOR X = 1 TO 10
PRINT CHR$(186) + STRING$(78,32) + CHR$(186);
NEXT
PRINT CHR$(200) + STRING$(78,205) + CHR$(188);
PRINT CHR$(201) + STRING$(78,205) + CHR$(187);
FOR X = 1 TO 10
PRINT CHR$(186) + STRING$(78,32) + CHR$(186);
NEXT
PRINT CHR$(200) + STRING$(78,205) + CHR$(188);
Task1$ = "Open" : Task2$ = "Open"
"Task1" 'First Task ... runs
'until key is pressed
DEF PAGE 1,1 TO 78,10
PRINT @(29,10)"";
PRINT "Task1 Executing" Pass1
Pass1 = Pass1 + 1
IF LEN(INKEY$) Task1$ = "Closed"
"Task2" 'Second Task ... runs
'until key is pressed
LONG IF Task2$ = "Open"
DEF PAGE 1,13 TO 78,22
PRINT @(29,22)"";
PRINT "Task2 Executing" Pass2
Pass2 = Pass2 + 1
IF LEN(INKEY$) Task2$ = "Closed"
END IF
'Task routing
'If First Task still
'Open processing
'continues
IF Task1$ = "Open" GOTO "Task1"
'First Task completed
'If Second Task still
'Open processing
'continues
IF Task2$ = "Open" GOTO "Task2"
'Both Tasks completed
DEF PAGE 0,0 TO 79,24
END